function [N,A] = loadd3d_scalar(file)
fid = fopen(file, 'r');
tline = fgetl(fid);
N=sscanf(tline, '%d\t%d\t%d');
A=zeros(N(1), N(2), N(3));
for i=1:1:N(1)
	for j=1:1:N(2)
		for k = 1:1:N(3)
			tline = fgetl(fid);
			A(i,j,k)=sscanf(tline, '%e');
		end
	end
end
fclose(fid);

